home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_18_palette script 8bit.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  3.6 KB  |  92 lines
  1. global gCast, gCurrentColor, gFirstColor, gSecondColor, gWvBgColor, gWvBgShadow, gWvVcolor, gWvVShadow, gWvHcolor, gWvHShadow
  2.  
  3. on mouseEnter me
  4.   sprite(me.spriteNum).cursor = [356, 357]
  5.   put "Click to select a color." into field "status"
  6. end
  7.  
  8. on mouseWithin me
  9.   gCurrentColor = member("System - Win palette").image.getPixel(the mouseH - sprite(me.spriteNum).left, the mouseV - sprite(me.spriteNum).top)
  10.   if gCurrentColor <> 0 then
  11.     put gCurrentColor.red into field "red status"
  12.     put gCurrentColor.green into field "green status"
  13.     put gCurrentColor.blue into field "blue status"
  14.     put gCurrentColor.hexString() into field "hex status"
  15.     put gCurrentColor.paletteIndex into field "paletteIndex status"
  16.   end if
  17. end
  18.  
  19. on mouseLeave me
  20.   gCurrentColor = VOID
  21.   sprite(me.spriteNum).cursor = 0
  22.   put EMPTY into field "red status"
  23.   put EMPTY into field "green status"
  24.   put EMPTY into field "blue status"
  25.   put EMPTY into field "hex status"
  26.   put EMPTY into field "paletteIndex status"
  27.   put EMPTY into field "status"
  28. end
  29.  
  30. on mouseDown me
  31.   sprite(me.spriteNum).cursor = [361, 362]
  32. end
  33.  
  34. on mouseUp me
  35.   sprite(me.spriteNum).cursor = [356, 357]
  36.   if sprite(47).rect = rect(598, 13, 622, 37) then
  37.     gFirstColor = gCurrentColor
  38.     member("1st Color", gCast).image.fill(member("1st Color", gCast).rect, gFirstColor)
  39.   else
  40.     if sprite(47).rect = rect(598, 43, 622, 67) then
  41.       gSecondColor = gCurrentColor
  42.       member("2nd Color", gCast).image.fill(member("2nd Color", gCast).rect, gSecondColor)
  43.     else
  44.       if sprite(47).rect = rect(48, 518, 67, 537) then
  45.         gWvBgColor = gCurrentColor
  46.         member("weave - bg color", gCast).image.fill(member("weave - bg color", gCast).rect, gWvBgColor)
  47.       else
  48.         if sprite(47).rect = rect(68, 518, 87, 537) then
  49.           gWvBgShadow = gCurrentColor
  50.           member("weave - bg shadow", gCast).image.fill(member("weave - bg shadow", gCast).rect, gWvBgShadow)
  51.         else
  52.           if sprite(47).rect = rect(48, 543, 67, 562) then
  53.             gWvVcolor = gCurrentColor
  54.             member("weave - V color", gCast).image.fill(member("weave - V color", gCast).rect, gWvVcolor)
  55.           else
  56.             if sprite(47).rect = rect(68, 543, 87, 562) then
  57.               gWvVShadow = gCurrentColor
  58.               member("weave - V shadow", gCast).image.fill(member("weave - V shadow", gCast).rect, gWvVShadow)
  59.             else
  60.               if sprite(47).rect = rect(48, 568, 67, 587) then
  61.                 gWvHcolor = gCurrentColor
  62.                 member("weave - H color", gCast).image.fill(member("weave - H color", gCast).rect, gWvHcolor)
  63.               else
  64.                 if sprite(47).rect = rect(68, 568, 87, 587) then
  65.                   gWvHShadow = gCurrentColor
  66.                   member("weave - H shadow", gCast).image.fill(member("weave - H shadow", gCast).rect, gWvHShadow)
  67.                 else
  68.                   if sprite(47).rect = rect(593, 263, 617, 287) then
  69.                     member("palette transparency color", gCast).image.fill(member("palette transparency color", gCast).rect, gCurrentColor)
  70.                     sprite(1).bgColor = gCurrentColor
  71.                     sprite(20).bgColor = gCurrentColor
  72.                     sprite(261).bgColor = gCurrentColor
  73.                     sprite(262).bgColor = gCurrentColor
  74.                     sprite(263).bgColor = gCurrentColor
  75.                     sprite(264).bgColor = gCurrentColor
  76.                     sprite(47).rect = rect(598, 13, 622, 37)
  77.                   end if
  78.                 end if
  79.               end if
  80.             end if
  81.           end if
  82.         end if
  83.       end if
  84.     end if
  85.   end if
  86.   updateStage()
  87. end
  88.  
  89. on mouseUpOutSide me
  90.   nothing()
  91. end
  92.